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Advertising in AAL 


Due to the increased costs of printing more than 1600 copies 
per month, and with the desire to limit the percentage of 
advertising pages to less than 30% each month, I have decided 
to raise the page rate again. 


For the July 1982 issue the price will be $50 for a full page, 
$30 for a half page. So-called "classified" ads, of up to 
forty words, will be §5. 


About "The Other Epson Reference Manual" 


I have received a number of complaints from readers that Cut 
the Bull Software Co. doesn't cut the mustard. Their $5 checks 
have been cashed, but after many weeks they still have not 
received the booklet they ordered. I have no phone number for 
either the company or the owner, and apparently neither does 
Information. I know the booklet exists, because I have one. I 
believe the company plans to fill all the orders, but 7 
procrastination has taken over. (They sent me a copy of 
another booklet, which I don't plan to review.) Until they 
see fit to fill their back-orders, and to publish a phone 
number, I don't recommend ordering their booklet. 


Implementing New Opcodes Using 'BRK'.......&0b Sander-Cederlof 


If you have the Autostart ROM, you can control what happens 
when a BRK instruction is executed. If you do nothing, a BRK 
will cause entry into the Apple Monitor, and the register 
contents will be displayed. But (if you have the Autostart 
Monitor) by a small amount of programming you can make the BRK 
do marvelous things. 


Like simulate neat instructions from the 6809, which are not in 
the 6502, for example. I am thinking particularly of the LEAX 
instruction, which loads the effective address into a 16-bit 
register; of BSR, which enters a subroutine like JSR, but with 
a relative address; and of BRA, which is a relatively addressed 
JMP. With these three instructions you can write 
position-independent programs (programs that execute properly 
without any modification regardless of where they are loaded in 
memory). 


I am thinking of these because of an article by A. Sato in "Lab 
Letters" (a publication of ESD Laboratories in Tokyo, JAPAN) 
Volume 6 No. 1, pages 91-93. It is all written in Japanese 
(see example below), but I think I deciphered what he is 
saying. 


When a BRK instruction is executed, the program is interrupted 
as though a Non-Maskable Interrupt (NMI) occurred. The B bit 
in the status register is set, so the Apple can tell that the 
interrupt was caused by BRK rather than some external event. 
After making this determination, the Autostart Monitor performs 
a "JMP ($3F0)" instruction. This means that you can get 
control by placing the address of your own program into $3F0 
and $3F1. The monitor initialization process puts the address 
SFA59 there. 


By the time the monitor branches to the BRK processor (its own 
Or yours) all the registers have been saved. The address of 
the BRK instruction plus 2 (PC) has been saved at $3A and $3B; 
the registers A, X, Y, P (status), and S (stack pointer) have 
been saved in $45 through $49, respectively. 


BRK Interceptor/Interpreter 


In the program below, lines 1180-1230 will set up the 
BRK-vector at $3F0 and $3F1 to point to your own BRK processor. 
Lines 1250-1320 back up the PC value by one, to point at the 
byte immediately following the BRK instruction. At this point 
I can decide what to do about the BRK. 


Since I want to simulate the operation of LEAX, BSR, and BRA, I 
will use the BRK instruction to introduce a pseudo instruction 
of three bytes. I decided to copy A. Sato on this. LEAX is a 
BRK instruction followed by LDX from an absolute address. This 
is SAE in hexadecimal, followed by a 16-bit value representing 
a relative address. BSR is BRK followed by a JSR instruction 
($20) and a relative address; BRA is BRK followed by a JMP 
instruction ($4C) and a relative address. 
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Looking back at the program, lines 1310 and 1320 store the 
address of the secondary opcode byte into PNTR and PNTR+1. 
These two bytes are inside an instruction at line 1760. I 
didn't want to use any page-zero space, so I had to resort to 
this kind of self-modifying code. While we are here, lines 
1750-1780 pick up the byte whose address is in PNTR. Lines 
1710-1740 increment PNTR. If we call GET.THIS.BYTE, it just 
picks up the byte currently pointed at. If we call 
GET.NEXT.BYTE, it increments the pointer and gets the next 
byte. 


Lines 1330-1370 pick up the three bytes which follow the BRK. 
The opcode byte is saved in the Y-register. Lines 1380-1450 
compute the effective address, by adding the actual address of 
the instruction to the relative address inside the instruction. 


Lines 1470-1540 classify the opcode; if it is one of the three 
we have implemented, it branches to the appropriate code. If 
not, it jumps back into the monitor and processes the BRK in 
the normal monitor way. 


Opcode Implementation 


Lines 1560-1780 implement the three opcodes BSR, BRA, and LEAX. 
BRA (Branch Always) is the easiest one. We have already 
computed the effective address and stored it in the address 
field of the JMP instruction at line 1620. All BRA does is 
restore the registers (line 1610), and JMP to the effective 
address. 


BSR (Branch to Subroutine) is only slightly harder. We first 
have to push the return address on the stack, and then do a 
BRA. Lines 1560-1590 do the pushing. 


LEA (Load Effective Address) is the hardest. Lines 1650-1690 
do the work. First GET.NEXT.BYTE moves the address in 
PNTR,PNTR+1 to point at the first byte of the next instruction. 
That is so we can continue exectution. Then MON.RESTORE gets 
back the original contents of all the registers. THEN LDY and 
LDX pick up the effective address in the Y- and X-registers. 
The high byte of the effective address is in the X-register, 
and the Z- and N-bits in the status register reflect the value 
cf this byte. If you wish, you could modify this to not change 
the status by inserting a PHP opcode after line 1660, and PLP 
after line 1680; then the status register would remain 
unchanged by the entire LEA process. Or you could reverse 
lines 1670 and 1680, so that the status reflected the low-order 
byte of the effective address. 


Demonstration Using the New Opcodes 


Lines 1800 and beyond are a demonstration of the use of the new 
opcodes. First I defined some macros for the new opcodes. I 
didn't have to do this, but it is convenient if you have a 
macro assembler. If you don't, you can use the BRK instruction 
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on one line, followed by a LDX, JSR, or JMP instruction with a 
relative address on the next line. 


My macros are defined in a nested fashion. The BRK macro 
generates two lines: BRK on the first line, and a second line 
consisting of the specified opcode and operand. The LEA, BSR, 
and BRA macros call BRK to generate LDX, JSR, and JMP 
instructions after the BRK. The operand field is a relative 
address, computed within the BRK macro, 


The demonstration program will run anywhere in memory, as long 
as the BRK interpreter has been loaded and initialized. You 
can test this by moving $871-89F to other places and running 
it. What it does is print out the message in line 2090. 


1010 #---------------- 
1020 ® IMPLEMENTING BSR AND EA OPCODES 
1030 USING THE "BRE! tee TOR 
1080 ‘ AUTOSTART R 
1060 # ADAPTED FROM AN ARTICLE IN "LAB LETTERS" 
10 o8 B SATO 
1080 #&------------- ee 
003A- 1090 MON. PC .EQ 34 3B 
0046- 1100 MON. XREG Q 
004T= 1110 MON . YREG Q 
O3F0- 1130 BRK.VECTOR .EQ $3F0, 3F1 
FA59- 1150 MON. BRK -EQ gFAS 
FF3F- 1 0 MON.RESTORE .EQ 3FF 
1150 SETUP 
0800- Ao OB 1190 LDA #BREAK. INTERPRETER 
0802- 8) FO 03 12060 STA BRK.VECTOR 
0805- AQ 08 1210 LDA /BREAK. INTERPRETER 
0807- 8D F1 03 1220 STA BRK.VECTOR+1 
O80A~- 60 12 0 . RTS 
1250 BREAK. INTERPRETER 
080B- ay 3 1260 LDY MON. PC+1 PICK UP ADDRESS OF THIRD BYTE 
O80F- DO 01 1280 BNE .1_ BACK UP TO SECOND BYTE 
OB tae Ga 1500 «1 DEX 
081 - BE 6B 08 1223 ° Stx PNTR ,; MODIFY ADDRESS IN GET.THIS.BYTE SUBRC 
- + 
0819- 20 6A 08 1 30 JSR GET. THIS. BYTE 
081C- AB 1340 TAY OPCODE BYTE 
081D- 20 62 08 1350 JSR GET.NEXT. BYTE 
0820- 48 1360 PHA ADDR-LOW BYTE 
0821= 20 62 08 1370 JSR GET.NEXT.BYTE 
SBae. 8 1390 PLA 
G826- 38 1880 SEC ADDR-HIGH BYTE 
0827- BD 6B 08 1410 ADC PNTR COMPUTE EFFECTIVE ADDRESS 
O82A- 8p 51 08 14120 STA EFF. ADDR 
O82E- 6D 6C 08 1480 ADC PNTR+1 
31~ 8D 52 08 1450 . STA EFF. ADDR+1 
083)- co 20 470 cry #320 CLASSIFY OPCODE 
38° CO AC 1490 CPY rriite 
O83A- FO 11 1500 BEQ BRA 
gcc co ae igse Get ti 
O840- 84 1530 STY MON. YREG 
0842- 4C 59 FA 1980 . JMP MON .BRK 
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oeia. AB 


i 


20 
4C 


w 


20 
20 
AC 
AE 
6C 


DO 


AD 
60 


KC 


EE 6 


6C 
6B 


30 


EE 6B 


FF 


MSG -EQ 0,1 
10 JMP.COUT JMP $FDED 
MA LEA 


0 . 

0 >BRK LDX, }1 

0 EM 

50 -MA BSR 

$0 >BRK JSR, ]1 

Bo MA BRA 

30 >BRK JMP, ]1 

10 »MA BRK 

20 BRK 

30 J1 J2=:1 

0 3:1 

20 EM 

O TEST >LEA MESSAGE 

0> >BRK LDX,MESSAGE 
0000>> BR 
0000>> LDX MESSAGE-:; 1 
0000>> :1 
270 STX MSG+1 
1980 STY MSG 
1990 LDY #0 
2000 ot LDA (MSG),Y 
2020 ORA #$80 
2030 >BSR JMP.COUT 
0000 >BRK JSR,JMP.COUT 
0000>> BR 
0000>> JSR JMP.COUT=: 1 
00005) 3: 
2040 INY 
2050 PLA 
2060 BPL . 
o010 LDA #$8D 
2080 >BRA P.COUT 
0000> >BRK JMP,JMP.COUT 
0000>> BRK 
0000>> JMP JMP.COUT-:1 
0000>> :1 


A-REG AND ST 


CARRIAGE RETURN 


2090 MESSAGE .AT /THIS IS MY MESSAGE/ 


Autostart ROM@ fs. BRKA 7k LRRAMEM HI ZED, a-PTUL Ze, 


ATUS 


A BRKRF> TRUCE SS 


_ RAL, POTHIV FEC SCMUAEEL 


1, Bat ED Apple ot H68Cq 2 MARIC LTES HEI 


PUSH RETURN ADDRESS ON STACK 


tOOLELTELE 


oF 


60 BSR LDA PNTR+1 
io PHA 
0 LDA PNTR 
30 ® PHA AND DO BRA 
10 BRA JSR MON. RESTORE 
20 JMP #-# 
Bo EFF. ADDR EQ #-2 
50 LEA JSR GET.NEXT.BYTE POINT AT NEXT INSTRUCTION 
60 JSR MON.RESTORE RESTORE 
fo LDY EFF.ADDR ADDR-LO IN Y 
0 LDX EFF.ADDR+1 ADDR-HI IN X 
90 JMP (PNTR) 
00 teen mnnn nme eww eowoweewemeowoow= 
10 GET.NEXT 
20 INC PNTR 
30 BNE GET.THIS. BYTE 
0 INC PNTR+1 
50 GET.THIS. BYTE 
60 LDA $FFFF (FILLED IN) 
fe PNTR .EQ ®-2 
0 S 
90 #------------------ =e 
00 


~ 
- 
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PPSQN HIEROCRAPHIC TRANSPORT 


PRINTER GRAPHICS SOFTRAREGE 


TRANSPORT FEATURES: WINDOW CONTROL ON HI-RES SCREEN (AS SHOWN ABOVE) ALLOWING ANY RECTANGULAR AREA OF THE 
SCREEN TO BE SELECTED FOR PRINT; VARIABLE SCALE IN BOTH HEIGHT AND WIDTH OF THE PICTURE ALLOWIWG STRETCH AND 
MAGNIFICATION; NORMAL OR ROTATED PICTURE; POSITIVE OR NEGATIVE PRINT; PICTURE FILES LOADED WITH A SINGLE KEY 
PRESS; MODULE INCLUDED THAT NAY BE CALLED FROM BASIC; WRITTEN IN MACHINE LANGUAGE. 


FOR 48K APPLE TI/APPLE II PLUS WITH EPSON MX-70/80/100 PRINTER (RI-BO MUST HAVE GRAFTRAX 80 GRAPHICS OPTION) 


GPE Il / PALE 11 Pee aE TRACERS OF PPLE COMPUTER, let. 
CPEB A1-70/00/100 Aa GROPUTRAL OO GRAPHIC) ACE TRSDNKS S Ete RICA, LE. 


THE CLONE KIT ~2#3#_ 


CLONE KIT IS A MULTI-PURPOSE BIT COPIER FOR THE APPLE II COMPUTER, 
GIVING YOU THE MEANS TO PROTECT YOUR INVESTMENT IN SOFTWARE BY 
BACKING UP MOST OF YOUR “PROTECTED” DISKETTES. 


WITH CLONE KIT YOU CAN: 


~- BACKUP DISKETTES USING SYNCHRONIZED TRACKS AS PROTECTION 

—- BACKUP DISKETTES USING A MODIFIED DOS 

~ COPY ONLY SELECTED TRACKS (USEFUL TO RESTORE A “BLOWN” DOS) 

—- MAKE A SINGLE DRIVE BACKUP 

— DUPLICATE DISKS USING SPECIAL TIMING FOR PROTECTION 

—- PROVIDES EXTENDED INFORMATION FOR VIEWING THE DISKETTE STRUCTURE 
- COPY PASCAL AND CP/M DISKETTES QUICKLY AND EASILY 


WORKS WITH BOTH 13 AND 16 SECTOR DISKETTES 
WRITE OR CALL (214) 259-6482 OR (214) 259-5196 


HIEROGRAPHIC TRANSPORT ... $39.95 
THE CLONE KIT esenavneunvneece C4995 334 95 


DEALER INQUIRIES §INVITED 
on 
ASSULIRIES - P.O. BOX 401462 — GARLAND, TEXAS 75040 


. WO. 
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A New Hi-Res Function for Applesoft.......e.ee.ee-. Mike Laumer 


Most people use the language card as nothing more than a ROM 
simulator for the other version of BASIC that is not on the 
motherboard. But it can do much more since the memory is 
actually RAM. Indeed Bob S-C's Macro Assembler has a version 
which runs in a Language Card. The FLASH! Integer BASIC 
compiler which I wrote uses the language card in place of a 
disk file providing higher speed compilations for those people 
who have a language card. 


One nice aspect of having the language card is the ability to 
move Apple software from ROM to RAM in the card and make 
changes to add a new capability. Some people have done this 
already with the Apple monitor to add an extra feature or two 
at the expense of another (who needs the tape I/O routines). 


The program assciated with this article will allow you to patch 
a RAM card version of Applesoft to modify the 'HPLOT’ command 
to function as an ‘'HXPLOT' command. What is ‘HXPLOT' you say. 
Remember the DRAW and XDRAW commands in Applesoft. The ‘'DRAW' 
command will place a shape on the screen; 'XDRAW' does the same 
thing, but "XDRAW' has the unique ability to redraw the shape 
and erase it from the screen leaving whatever was on the screen 
initially still intact. The ‘HXPLOT' function in the listing 
functions the same way for the ‘HPLOT' command as 'XDRAW' does 
for the 'DRAW' command. 


I have been developing a Hi-Res graphics editor as my next 
product. During the development cycle I was working with a 
line draw game paddle routine. You move a cursor to a position 
and anchor one end of the line to a point. Then you can move 
to another position and while you move a line stretches out 
from the point like a rubber band to the current cursor 
position. This gives you a preview of what the line looks like 
before you plot the line. The 'HXPLOT' function does have one 
Sleight problem: it plots independent of the current color. 


What the function actually does as it draws a line is to invert 
each dot of the line path instead of plotting a color. When 
the same line is drawn with the same coordinates the bits on 
the line path are inverted again back to their original value, 
restoring the screen to what it was before you started 
HXPLOTting. 


You may be wondering why not just use the 'HPLOT' as it is to 
do this. You could just draw the line once with a color of 3 
then change the color to 0 and erase the line with another 
'HPLOT', This only works if you have a black screen with no 
other images on it. If their are other images on the screen 
then when you erase the line you will draw a black line through 
those other images causing them to change. Only a function 
like 'XDRAW' or the 'HXPLOT' will be non-destructive of the 
background data on the screen. 
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How It Works 


The 'HPLOT' command in Applesoft is actually two commands in 
one, 


HPLOT x, y plots 1 point 
HPLOT xl,yl TO x2,y2 plots a line 


Each of the routines have one common place where they plot a 
bit onto the hi-res screen. The point plotting routine is at 
SP457 in the ROM and the line routine is at $F53A in the ROM. 
By putting Applesoft into the RAM card we can patch into these 
routines and modify their operation. 


The two areas that are patched are at $F457 and S$FP58D. After 
you run the patch program you should see the Applesoft prompt 
character and there will be no program in memory. So type in 
the small demo program listed here and run it. 


10 HGR2 : POKE 769,1 

15 POKE 28,127: CALL 62454 

20 FOR I = 0 TO 279 STEP 10: FOR J = 0 TO 192 STEP 10 
25 HPLOT 140,96 TO I,J 

30 FOR Z = 1 TO ls: NEXT Z 

40 HPLOT 140,96 TO I,J 

50 NEXT J: NEXT I 

100 GOTO 10 


If you have an Integer BASIC motherboard you should boot up 
your system master disk and have Applesoft loaded into your RAM 
card before using the routine. 


Time II 


The most powerful, easiest to use, clock for your APPLE 


© TIME IN HOURS, MINUTES AND SECONDS. : ta mano) ) . fies 
; : . * 
@ DATE WITH YEAR, MONTH, DAY OF WEEK AND LEAP VEAA. . 


@ FAST DATE AND TIME SETTING. 
@ PROGRAM SELECTABLE 24 HOUR BMLITARY FORMAT OR 12 
HOUR WITH AM/PM FORMAT. 
@ WILL ENHANCE PROGRAMS FOR ACCOUNTING, THE ANO 
ENERGY MANAGEMENT, REMOTE CONTROL OF APPLIANCES, 
LABORATORY ANAL YSIS, PROCESS CONTAOL, AND MORE. 
© DIP SWITCH SELECTASLE INTERRUPTS PERANT FOREGROUND) 
BACKGROUND OPERATION OF TWO PROGRAMS SHBQULTA— 
NEOUSLY. @ INCLUDES DISK CONTAINING MANY TIME ORIENTED UTILITIES, 
@ CRYSTAL CONTROLLED FOR .0005% ACCURACY. PLUS OVER 26 USER CONTAMUTED PROGRAMS AT NO EXTRA 
© THE EASIEST PROGRAMMING IN BASIC. cosr. 
eon wo a eet aren warren re an ® TWENTY-THREE PAGE OPERATING MANUAL INCLUNED. WITH 
POWER OFF OPERATION (BATTERY CHARGES WHEN APPLE 16 : . 
ON) ma MANY EXAMPLES OF PROGRAMS TO USE WITH YOUR APPLE IN 
ANY CONFIGURATION. 


ALL ORDERS SHIPPED SAME DAY 
SEND $120.00 CHECK OR MONEY ORDER 
(TEXAS RESIDENTS ADD 56% SALES TAX) MASTER CHARGE & VISA WELCOME 


APPLIED ENGINEERING (214) 492-2027 ep 


P.O. BOX 470301 7:00 AM - 11:00 PM 7 DAYS AWEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 


Page 8....Apple Assembly Line....June, 1982....Copyright (C) S-C SOFTWARE 


1000 #----~----~--~----- ee 

1010 ® THIS ROUTINE ADDS AN XPLOT CAPABILITY 

1020 # TO APPLESOFT. T $20) (769) 

08 # CONTROLS WHETHER He PLOTS oR XPLOT I 

of * FUNCTIONING. 

060 # POKE 169» ,0 ENABLES HPLOT 

07 # POKE 76 ENABLES XPLOT 

09 . 300 

10 .TF B.HXPLOT 
9300- A9 00 110 NEW.HLIN LDA 30 TEST 'XPLOT' FLAG 
0302- DO 0 12 BNE YES 'XPLOT' MODE 
0304- B1 2 13 LDA $26),Y PLOT NORMAL LINE 
0306- 45 1C 1 EOR $1C 
0308- 25 30 15 AND $30 
O30A- 4C 3 F5 116 JMP $F593 BACK INTO APPLESOFT LINE ROUTINE 
O30D=- Ag 7 7 2 LDA #$7F MASK COLOR SHIFT BIT 
030F- 25 30 1 AND ; 0 OFF OF BIT MASK 
0311- 31 26 19 AND ($26),Y TEST SCREEN BIT 
0313~ BO F5 2 BNE . BIT IS SET!... SO CLEAR IT 
0315= AQ 7F 21 LDA #$7F BIT IS CLEAR!...SO SET IT 
0317~ 25 30 22 AND $30 BIT MASK WITHOUT COLOR SHIFT BIT 
0319= 10 EF 23 . BPL .1 BRANCH ALWAYS 
031B- 20 11 F4 1250 NEW.PLOT JSR frit CALL HPOSN ROUTINE 
O31E~ AD 01 03 126 LDA $ TEST 'XPLOT® FLAG 
0321- DO 03 27 BNE $3 YES "XPLOT' MODE 
032 - WC 5A FA 12 JMP SEUSA PLOT NORMAL 
032b- AQ 7F 290 .1 LDA #$7F XPLOT 
0328- 25 30 AND $30 MASK COLOR SHIFT BIT OFF 

2h- 31 26 TEST SCREEN BIT 
2C- DO O04 BNE SCREEN BIT IS SET 
LDA § #$7F »«CLEAR SO PREPARE TO 

0330- 25 30 SET SCREEN BIT 


IMP > $60 BACK INTO APPLESOFT XPLOT ROUTINE 


TO USE THE ABOVE FUNCTION YOU MUST HAVE A RAM CARD. 
APPLESOFT MUST BE IN THE RAM CARD. 
THEN YOU MUST DO THE FOLLOWING: 


BLOAD B.XPLOT.FOR.FP LOAD THE XPLOT ROUTINE 
1, CALL-151 TO ENTER THE MONITOR 

2. C081 C081 TO WRITE ENABLE THE CARD 

GO TO STEP 5 IF YOU HAVE AN INTEGER BASIC MOTHER 


3° F58D:4C 00 03 PATCH FOR LINE ROUTINE 


e 
N 


0332- 4C 60 FA 


Sees eceee ene ee 8 
© 
e 


F 2 s4C 1B 0 PATCH FOR POINT PLOT ROUTINE 
co . WRITE PROTECT THE RAM CARD 
3D3G START APPLESOFT UP 


ae) 
ig] 
a 
= 
Ve] 
| 
el ee cee ee ed eh ee eh ond ceed ah oe ce 8 ed eh ee ed eh we we ek ee ed et ce eh we eh ed eh ch ee eh eed ed ced we ed ced ee elt ed ed ed wed edd ed eh ek ek ed oh A 8 oh od ed dh 
olelelolelelololefeojelelololelelolojelelelolelololosolololoesolelolelelelolelolololololelelejolololoeleloleloleleleleleleleloleio) 
e 
] 
ai 
N 
Cov 
aw 
= 
-< 


KNOAQAWNA NON UIGTIUTIUTONO £2 £2 Bo ie fee PW WII WWI WIL) 
WN 3 OO ONION SW DD) A# OW ONION BW ID 2 O00 ONIN EWN © 


FDED- MON. COUT EQ, $EDED MONITOR CHARACTER OUT ROUTINE 
“TF B.PATCH.XPLOT 

4000- AO 00 START LDY #0 

4002= BO OD 40 4 LDA MESG,Y 

4005- FO 1E BEQ L.10 

4007- 20 ED FD JSR MON.COUT PRINT MESSAGE 

HOOA- C INY 

4O0B- DO F BNE ,1 BRANCH ALWAYS 

4OOD- 8D 8 MESG .HS 8D84 

YOOF- C2 CC 


4018= DO CC CF 

401B=- D4 AE C6 

401E=- CF D2 

4021- C6 DO 1640 eAS -/BLOAD B.XPLOT.FOR.FP/ 
4023- 8D 00 1650 HS 8DO00 
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4025- AD 81 CO 1660 L.100 LDA $C081 ROM READ 

4o28- AD 81 CO 1670 LDA $C081 RAM CARD WRITE 

Hoses bb 20 8° te90 Lo eo ORE E YNTEGER BASIC 

4030- FO 15 1700 BEQ L.200 YES SO MUST HAVE FP FROM SYSTEM MASTER 
4032= AQ DO 1740 LDA #$D0 NO SO COPY FP FROM ROM TO RAM CARD 
4O34= 85 01 1720 STA 

4036- AQ 00 1730 LDA #0 

4038- 85 00 17}0 STA 30 

HO3A= AO 00 1750 «1 LDY #0 

403E- | 00 1 70 STA ($0),Y 

4OkO- 1780 INY 

4O47- DO F9 1790 BNE ,2 

ihe Bg oe 

4Ou7— Ro 1820 L.200 LDA iM SET PATCHES INTO RAM CARD APPLESOFT 
nat 8D F5 1 30 STA $F58D 

4ouc=- 8D 57 FR 1840 STA $F457 

HOUF- AQ 0 1850 LDA #NEW.HLIN 

4051- 8D 8E F5 1860 STA $F58E 

HO54- AQ 03 1870 LDA /NEW.HLIN 

4056- 8D 8F F5 1880 STA }F5SF 

4059- AQ 1 1890 LDA #NEW, PLOT 

4O5B- 8D 58 F4 1900 STA $F458 

4O5E- A9 3 1910 LDA /NEW.PLOT 

igo BB GP 63 Jeg Ene 

4066- 4C D3 03 19h0 JMP $3D3 START UP RAM CARD APPLESOFT 


PII CRO MART 


LOW, LOW PRICES ON PERIPHERALS AND SOFTWARE 
WE HAVE MOST POPULAR - PRINTERS, MONITORS, & CARDS 
OKIDATA, IDS, QUME, NEC, SVA, AMDEK, CCS, SSM & MORE 


MICRO SCI - A2 DISK DRIVE wo/cntr 395 
MICROSOFT - SOFTCARD WITH CP/M 285 
MMI - 16K RAMCARD 77 
NOVATION - APPLE CAT II (1200 baud) 335 
STB - 64K CARD w/Disk emulator software 279 
STB - 128K CARD w/Disk emulator software 479 
STB - 80 (80-column card) 250 
STELLATION - THE MILL w/6809 assembler kit 305 
VIDEX - VIDEOQTERM CARD wi/softsw 275 
VIDEX - KEYBRD ENHANCER I! (rev 7 & up) 120 


Phone (214) 361-7831 Visit our Catalog Showroom. 
Checks (allow 10 days to clear) and money orders welcome. NO COD's. 
Shipping & handling: 2% ($3.00 min) continental U.S.; 10% for Foreign & APQ. 
PRODUCTS SUBJECT TO PRICE CHANGE & AVAILABILITY WITHOUT NOTICE 


WRITE OR CALL FOR FREE DISCOUNT CATALOG 
MICRO MART —- 3413 WESTMINSTER #103 - DALLAS, TX 79225 
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Bubble Sort Demonstration Program.......Bob Sander-Cederlof 


The following program implements one of the most inefficient 
methods of sorting a list of items ever invented. It is also a 
very specific implementation, not general at all. But it 
should be valuable to study if you are not already well-versed 
in sorting techniques. After execution, the bytes from $00 to 
$1F will be in ascending order. 


1000 S--mmn nn nn nee enn nn nnn nnn eee 

1040 : BUBBLE=SORT DEMO 
0000- OR0 LIST ~ EQ 300 THRU $0F 
0010~ 1040 N ~EQ 16 
0010- 1020 FLAG ~-EQ $10 
0800- AO 00 whe BUBBLE LDY #0 INITIAL INDEX 
0802- 84 10 1080 STY FLAG INTERCHANGE FLAG 
O804- B9 01 00 1090 .1 LDA LIST+1,¥ COMPARE TWO ADJACENT ITEMS 
0807- D9 00 00 1100 CMP LIST, 
O80A- BO 0 1110 BCS .2 ALREADY IN CORRECT ORDER 
O80C- 48 1120 PHA INTERCHANGE THEM 
O8oD- B9 00 00 1130 LDA LIST,Y 
03810- 2 01 00 1140 STA LIST+1,Y 
0813- 1150 PLA 
0814= 99 00 00 1160 STA LIST,Y 
oF tg AQ FF 1170 LDA #$FF SET INTERCHANGE FLAG 
0819- 85 10 1180 STA FLAG 
081B- C 1190 .2 INY NEXT OVERLAPPING PAIR 
081C~ CO OF 1200 CPY #N-1 
O81E=- 90 EX 1210 BCC .1 STILL A_ PAIR LEFT 
0820- A5 10 1220 LDA FLAG WAS AN INTERCHANGE PERFORMED? 
0822- DO DC 1230 BNE BUBBLE YES, MAKE ANOTHER PASS 
0824- 60 1240 RTS NO, ALL SORTED 


WRItTeC NOW 


Southwestem Data Systems, an industry pioneer in innovo- 
tive software for the Appie li, is aways looking for authors. There 
are No limitations on the size or type of software you can 
submit — utilities, Cormmunication, business, education, or 
games — the only requirement is that it must meet the quolity 
standards which typify ail SDS products. When you join the SDS 
team, you get the benefits of a professional support staff 
experienced in providing all you need to get your program to 
market. Here are some of the ways we help you: 


® TECHNICAL PROGRAMMING ASSISTANCE 

@ UNIQUE COPY PROTECTION W/LIMITED BACKUPS 
@ SUCCESSFUL MARKETING STRATEGIES 

@ ASSISTANCE IN WRITING THE MANUAL 

@ PROFESSIONAL PRODUCT ARTWORK 

@ QUALITY ADVERTISING 

@ SUPERIOR PACKAGING 

@ NATIONAL DISTRIBUTION 

@ HIGHEST ROYALTIES PAID MONTHLY 

@ CUSTOMER SERVICE SUPPORT 


This is the opportunity you have been waiting for, a chance 
to morket your program with the finest publisher in the soft- 
ware industry. Let Southwestem Data Systems’ reputation and 
proven track record for success go to work for you. If you think 
you have what we want — a unique and distinctive software 
pockage — please call or write us today! 


P.O. BOX 582 = SANTEE. CA 92071 = (714) 562-3670 
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DOS File Exchange: A Review. .cccscccveccecccesee Bill Morgan 


I've just been playing with a new program cailed DOS File 
Exchange (DFX), and it is wonderful. Author Graeme Scott has 
provided a very useful tool for transferring any type of files 
through a modem, with full error-checking. You can even chat 
at the keyboards while the transfer is going on! 


The DFX program must be running on both computers, and one of 
them must be using an original (primary) disk of the program. 
The program can be copied to produce a secondary disk; DFX will 
even send a copy of itself to a remote Apple, but the copy will 
be a secondary. 


To transfer files, one user selects a “master”™ mode, so he will 
control both Apples. He then chooses whether he will send or 
receive; the program then transmits the sending Apple's disk 
catalog to the receiver. The master user selects the files 
wanted from the catalog and starts the transfer. Both users 
are then free to chat, supervise the transfer in one of three 
display modes, or even leave the room. 


At almost any time, you can switch back and forth between 
Function and Chat modes. Function is used to select all 
control and menu choices; Chat sends all characters entered to 
the other Apple. 


There are three display modes, called M(enu), U(tility), and 
G(raphic). Menu shows choices, including the disk catalog when 
files are being chosen. Utility displays the transmitted and 
received data streams, and allows more space for chatting. 
Graphic displays the data being transferred on the Hi-res 
screen, so if you are receiving a picture you can watch it take 
shape. 


The only drawbacks I've found are that DFX will only operate 
with a Hayes Micromodem II in slot 2 and the disk in slot 6, 
drive l. 


DFX is available from Arrow Micro Software, 11 Kingsford, 
Kanata Ont., K2K 1T5 Canada. 


Macro Hint. ccccccccccccccsccccsccccccccccccvecesece e BOD and Bill 


For an easy semi-automatic SAVE, we use the following line in 
every program: 


1000 *HHHHHHSAVE filename 


The six H's are control H's (backspaces), entered by holding 
the CTRL key down and typing OHOHOHOHOHOH. (Control-O allows a 
following control character to be entered into a line.) To 
save the source file, just type LIST 1000, esc-I, and copy over 
the line. Make it a point to always have the SAVE in line 
1000; it's much easier to remember. 
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Yes/No Subroutine... ccccccececccececseee BOD Sander-Cederlof 


It happens all the time! I am continually needing to ask 
Yes/Ne questions in my programs. I do it now with the 
following subroutine, which has been somewhat stripped down for 
publication. 


Assume you have just printed the question itself on the screen, 
preferably with " (Y/N)?" on the end. Then call my subroutine 
with "JSR YES.NO". The subroutine will clear the keyboard 
strobe, so that it is sure it is getting the answer to this 
question, and not just a stray character you accidentally 
typed. Then aS soon as you hit any key, it will put it on the 
screen where the question ended and return to you, 


At the point you should use BNE to branch where you want to if 
the user has typed something other than "Y" or "N". Once that 
is out of the way, use BCC or BCS to branch on whether it was 
"Y" or "N". The subroutine sets carry for "N" and clears carry 
for "Y", 


In my actual programs, I have one more line between 1120 and 
1130. It is JSR MESSAGE.PRINTER, which expects a message 
number in the Y-register. You can use it either way. You 
might also like to insert two more lines to call the message 
printer to print " (Y/N)? "° for every question; that way the 
common string does not have to be repeatedly stored in memory 
with every question. 


1000 Se-nenn nnn nnn nn nnn nnn nn eeenenn= 
wore . YES/NO SUBROUTINE 
1030 # RETURN .NE. IF NEITHER "Y" NOR "N® 
1040 # -EQ. AND .CC. IF *Y" 
1050 # -EQ. AND .CS. IF "N*® 
1060 #------ enn nn nn nnn nnn 

C010—- 1070 STROBE -EQ $C010 

FDOC- 1080 MON.RDKEY .EQ $FDOC 

002k~- 1090 MON.CH EQ $24 

0028- 1100 MON . BASE ~-EQ $28 AND $29 
1120 YES.NO 

0800- 8D 10 CO 1130 STA STROBE 

0803- 20 OC FD 1140 JSR MON .RDKEY 

O806- AX 24 1150 LDY MON .CH 

0808- C9 CE 1160 CMP #'N+$80 

O80A- FO 05 ie BEQ . 

O80C=- C9 DI 1180 CMP #'Y+$80 

O80E- DO 03 1190 BNE .2 

0810- 18 1200 CLC 

0811- 91 28 1210 .1 STA (MON.BASE) ,Y 

0813- 60 1220 .2 RTS 
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My Own Little Belli wcccccccccvccvcscvcecees eBOD Sander-Cederlof 


The other day I was working on my Apple at home, and the kids 
were trying to sleep in the same room. The program I was 
working on needed to indicate erroneous input by a bell, and I 
had to test it. Suddenly I realized how loud and sharp the 
Apple bell is! 


With all that motivation, I threw together this little routine 
which makes a soft and pleasant tone to use for my own little 
bell. It generates fifty repetitions of a triple-toggle 
pattern, with time intervals selected for their harmonious 
character. 


Lines 1070, 1170, and 1180 establish a loop equivalent to the 
Applesoft code: 


FOR X = 50 TO 1 STEP -1l: : NEXT 


In assembly language it frequently occurs that backwards 
running loop counts are easier to use than forward ones, and 
this is just such a case, 


Examine lines 1080-1160, and you will see a pattern repeated 
three times. In each case I load A with a value, call 
MON.DELAY, and toggle the speaker. The value passed to 
MON.DELAY is first 14, then 10, and then 6. MON.DELAY is a 
subroutine in the Apple Monitor ROM which delays an amount of 
time depending on what value you pass in the A-register, 
according to the following formula: 


# cycles delay = 2.5*N*N + 13.5*N +13 


This includes the six cycles of the JSR used to call the 
subroutine. Each cycle is...well, the Apple clock is roughly 
1.023 MHz...80 a cycle is about .9775 microseconds long. The 
counts of 14, 10, and 6 give intervals between toggles of 
630.5, 204, and 195 (including the overhead instructions in 
SC.BELL). 


You can play with the values, and try creating your own 
variations. You might try adding a fourth toggle per loop, 
changing the number of loops, changing the delay counts, and so 
on. Have fun! 


1000 SB eenmn nnn nn nnn nnn een nnn ener rnnn= 
1010 ® MY OWN LITTLE BELL 
1020 Sqqnmnenn nnn n nn Henne wenn enn= 
FCA8- 1030 MON.DELAY .EQ $FCA8 
C030- rs SPEAKER EQ $C030 
1060 SC.BELL 
0800- A2 32 1 one LDX #50 
0802- AQ OE 1080 . LDA #14 
O804—- 20 A8 FC 1090 JSR MON .DELAY 
O807- AD 30 CO 1100 LDA SPEAKER 
O80A- AQ OA 1110 LDA #10 
O80C- 20 A8 FC 1120 JSR MON .DELAY 
O80F- AD 30 CO 1130 LDA SPEAKER 
O8i2- AQ 0 1140 LDA #6 
0814—- 20 A8 FC 1150 JSR MON. DELAY 
081 - AD 30 CO 1160 LDA SPEAKER 
O81A= CA 1170 DEX 
081B- DO E5 1180 BNE .1 
081D=- 60 1190 RTS 
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Decision 
Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembies Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISANM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoit. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Appiesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 
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Using the Shift-Key Mod......seeeeeeeeeeeBOb Sander-Cederlof 


Have you heard of the "Shift-Key Mod"? By running a wire from 
the game connector to the right spot on the keyboard circuit, 
you can use software to tell whether or not the shift key is 
pressed. You can make your Apple keyboard almost normal! 


Some word processors come with a convenient device which has a 
Clip on one end of a wire, and a DIP socket-plug on the other. 
(I sell such a device for $15 without any software.) Apples 
with the piggy-back board below the keyboard can use the clip. 
If you don't have that kind of Apple, you need to solder a 
small wire to the bottom of either shift key, and clip onto 
that wire. Of course, you can run the wire all the way to the 
game connector and avoid the extra expense...I did it that way 
on my first Apple. 


But what about software? All the mod does is bring the shift 
key into the game connector as PB2. You can read it with LDA 
$C063. If the value read is $00-7F, the shift key is being 
pressed; if S$80-FF, the shift key is not pressed. You have to 
write a special keyboard input subroutine to convert letters to 
lower case ASCII codes if the shift key is not down. 


Here is just such a subroutine! It is the one I use in my word 
processor (a product still being developed). Another routine 
sets up a cursor on the screen, and then calls 

READ. KEY.WITH.CASE to get the next keypress. 


Lines 1140-1160 read the keyboard, and keep reading until you 
press a key other than the shift key. Once you press a key, 
the value at KEYBRD will be a code between $80 and SDF; the 
value is considered negative by the 6502, so execution 
continues at line 1170. 


Lines 1170-1200 are an optional keyclick routine. In my word 
processor, a control-P turns the keyclicking on and off. I 
discovered that a very short “bell" sounds like a clicking 
keyboard, so that is what I use. The monitor bell subroutine 
toggles the speaker 192 times at about a 1000 Hertz rate to 
make a beep; I do it 10 times to make a click. 


Lines 1210-1220 pick up the keypress code again and clear the 
keyboard strobe. This sets up the keyboard electronics so that 
you can read the next keypress next time around. 


Lines 1230-1240 test the shift key. If it is down, the BPL 
will branch to the upper case section at line 1320. If the 
shift key is not down, lines 1270-1280 test whether the 
character is a letter. If so, line 1290 makes it into a 
lower-case code. 


I am using the codes from $E0O through SFF for lower-case. This 
is standard ASCII, and is also compatible with the various 
lower-case display adapters available on the Apple. S$El 
through SFA are the letters a-z; SEO is a tick-mark; $FB-FF are 
Special punctuation marks. I£ you don't have a lower-case 
display adapter, these codes display as punctuation and 
numbers. 
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Lines 1320-1420 handle characters typed with the shift key 
down. If the code is less than SCO, the keyboard input code is 
correct already. Above $C0O, the code is correct unless you 
have typed M, N, or P. The Apple translates these shifted 
letters into @, ], and “, respectively. My logic translates 
them back into capital letters. 


I use a special control sequence to enter the punctuation 
characters with codes above $C0, which is not shown here. You 
type control-O, which stands for “override", and then one of 
the letters klmnop or KLMNOP. The letter translates into the 
corresponding punctuation code, For example, control-O, 
shift-M is a right bracket (]); control-O, shift-P is an 
at-sign (@). 


1000 #----~--------~------.----------- 
1010 . READ KEY WITH CASE CONTROL 
co00- 1030 KEYBRD .EQ $C000 
C010- 1040 KYSTRB “EQ $C010 
C030- 1050 SPKR .EQ C030 
C06 3- 10 0 SHIFT.KEY .EQ $C063 
FBE4- 1080 MON.BELL2 .EQ $FBEH 
0000- 1100 KEY.CLICK.FLAG .EQ $00 
0001- 1110 CASE. INPUT. FLAG .EQ $01 
0002- 1120 CURRENT . CHAR .EQ $02 
1180 READ. KEY .WITH. CASE 
O800- AD 00 CO 1150 LDA KEYBRD GET CHAR FROM KEYBOARD 
0803- 10 FB 1160 BPL READ.KEY.WITH. CASE 
0805- AS 00 1170 LDA KEY. CLICK FLAG CLICKING? 
0809- AO 0 1190 LDY #10 YES, 10 HALF-CYCLES WILL 
O80B- 20 E¥ FB 1200 JSR MON.BELL2 ‘SOUND LIKE A CLICK 
SBOE AD oe Go issn) Bea RGerep CHAR AGAIN 
08 1~ 2C 6 CO 1230 BIT SHIFT KEY SHIFT KEY DOWN? 
0 192 2h 01 1250 BIT CASE. INPUT. FLAG 
081B- 30 08 1260 BMI .2 IN SHIFT LOCK UPPER CASE 
081D- C9 CO 1270 CMP #$CO NO, LOWER CASE IF LETTER 
O81F- 90 18 1280 BCC .5 NOT A LETTER 
Opes. be ay 1900 See Tee ETE ye ke LOWER CASE 
1310 #---SHIFT KEY PRESSED------------ 
0825- C9 CO 1320 2 CMP #§co SEE IF LETTER 
0827- 90 10 1 30 BCC . NOT A LETTER KEY 
0829- FO 0C 1340 BEQ .4 SHIFT-P 
OBSD. FO oh «13e ot rn ii 
cee a no ioe 
0833~ 29 EF 1390 3 AND #3EF MAKE CAPITAL-M OR -N 
0835- DO 02 1400 . BNE .5 .» ALWAYS 
0837- AQ DO 1420 .4 LDA #$D0 MAKE CAPITAL-P 
08 39- 85 02 1430 5 STA CURRENT. CHAR 
083B- 60 1440 RTS 
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The most controversial 
computer magazine 
for serious Apple-Users. 


“HARDCORE 


Computing 


“HARDCORE Computing warns pirates 
about the latest technology that companies 


Isn't it time that you found out the true story 
behind the most controversial user-oriented 


computer magazine around today? Over 64 
pages of facts, programming aids and pro- 
gram listings that includes columns on HOW TO: 
4. Copy-protect disks, 2. Normalize ‘‘unlistable’’ 
programs, 3. Use bit-copy programs to make 


back-ups of the “uncopiables,”’ 4. Write your 
own adventure-arcade games, 5. Market your 
software, and 6. Learn all about DOS. 


are using against them.” TIME, Feb. 8, 1982 


“When some Apple enthusiasts heard 
about the boycott (of bit-copy ads), they con- 
cluded that it was nothing but censorship and 
another example of the magazines ignoring 
the average Apple user to placate their adver- 
tisers. So they started their own publication, 
HARDCORE Computing "* ESQUIRE, Jan. 1982 


[ HARDCORE COMPUTING ] 

| Dept. AL-1 Subscriptions: : 
PO. Box 44549 $20.00 U.S.A. $28.50 Canada 
Tacoma, WA 98444 $32.50 Mexico $42.00 Others 


NAME 


ADDRESS 


CITY 


| 

| 

! 

2 | 
_ __l 
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Search for Page-Zero References,.........Bob Sander-Cederlof 


Many times I have wanted a utility which would list out all 
references to page-zero locations withing a program. For 
example, when I am trying to avoid conflicts with DOS or 
Applesoft, I need to know which ones they use and where. 


The following little program hooks into the Apple Monitor 
through the control-Y user command. You type in the address 
range you want to search through, control-Y, and a carriage 
return. The Apple will disassemble only those instructions 
within the address range which reference page-zero locations. 


Lines 1220-1280 set up the control-Y vector. When the monitor 
detects a control-Y command, it branches to $3F8. The JMP 
instruction there in turn branches to CTRL.Y at line 1320. 


Line 1330 loads the first address of the range into PCL and 
PCH. If you did not type any range before the control-Y, the 
previous value will be used. 


Lines 1340-1540 decide whether the instruction starting at the 
address in PCL,PCH references page-zero or not. All 
instructions which reference page-zero have opcodes of the form 
xl, x4, x5, or x6. All of the xl, x5, and x6 possiblities are 
valid; only 24, 84-C4, and E4 in the x4 column are valid. 


Lines 1580 and 1590 call on a piece of the monitor L-command to 
disassemble the one instruction. This also updates PCL,PCH to 
point to the next opcode byte. 


Lines 1600-1700 allow you to stop/start the listing by typing 
any key, to single-step the listing by pressing any two keys 
Simultaneously, and to abort by typing RETURN. 


Lines 1740-1780 are executed if the instruction does not 
reference page-zero, The call on pieces of the L-command to 
figure out the number of bytes in the instruction and update 
PCL,PCH accordingly. 


Lines 1820-1870 check to see if the range you specified has 
been covered yet. If not, keep searching; if so, stop. 


This kind of program should be in your tool-kit when you are 
debugging. Just don't lose it under all those other tools! 


1010 Sennen e nnn nnn nn nnn wn wn nme n nn 
1020 . SEARCH FOR PAGE ZERO REFERENCES 
003D- 1050 MON.A1H -EQ $3D 
003E- 1060 MON.A2L -EQ $3E 
003F- ge MON .A2H -EQ $3F 
003A-~ 1080 MON.PCL -EQ $3A 
003B- i+ MON . PCH -EQ $3B 
Co0o0- 1110 KEYBOARD EQ $6000 
C010- 1120 STROBE EQ 010 
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1130 #&---.--------~~------ 
FE63- 1180 MON.LIST2 .EQ $FE63 
F88C~- 1150 MON.INSDS .EQ $F88C 
FE75—- 1160 MON.A1PC .EQ $FE75 
F953- 1170 MON.PCADJ .EQ $F953 
FCBA~ 1130 MON.NXTA1 .EQ $FCBA 

1200 . SET UP CONTROL-Y VECTOR 
O800- AJ AC 1220 SETUPY LDA t$i6 'JMP' OPCODE 
0802- 8D F8 03 1230 F8 
0805- AQ 10 12h0 LDA #CTRL.Y 
0807- 8D F9 03 1250 STA $3F9 
O80A- AX 0 1260 LDA /CTRL.Y 
O80C- 8D FA 03 1270 STA $3F 
O80F- 60 1280 RTS 

1290 Smmmnn nnn nnn eee eee ewe ene mene 

1300 *# CONTROL-Y COMES HERE 

1310 #------- ee eee 

1320 CTRL.Y 
0810- 20 75 FE 1330 JSR MON.A1PC IF ADDRESS SPECIFIED, PUT IN PC 
0813= AO 00 13 0.1 LDY f0 
0815- B1 3A 1350 LDA (MON.PCL),Y 
0817- 29 OF 1360 AND #$0F 
0819= C9 01 1370 CMP #1 
081B- FO 20 1380 BEQ . 
081D=- C9 O4 1390 CMP # 

O81F- 90 3A 1400 BCC .6 

0821- DO 16 1410 BNE .2 

0823- B1 3A 1420 LDA (MON.PCL),Y 
0825- 29 FO 1830 AND #$F0 

0827- C9 20 1480 CMP #$20 BIT Z 
0829- FO 12 1450 BEQ . 

082B- C9 80 1460 CMP #$80 

O82D- 90 2C 1470 BCC . NO 
082F- C9 DO 1480 CMP #$D0 

0831- FO 28 1490 BEQ . NO 
833- C9 FO 1500 p #30 

0835- FO 2k 1510 BEQ . NO 
0837- DO O04 1520 BNE .3 YES 
0839- C9 07 1530 2 CMP *] 

O83B- BO 1E 1340 . BCS . 

1360 . INSTRUCTION REFERENCES PAGE-ZERO 
083D- AQ 01 1260 03 LDA #1 DISASSEMBLE THIS ONE INSTRUCTION 
083F- 20 63 FE 1590 JSR MON.LIST2 DISASSEMBLE 
0842- AD 00 CO 1600 LDA KEYBOARD SEE IF KEYPRESS 
0845- 10 20 1610 BPL .7 NO 
0847- 8D 10 CO 1620 STA STROBE YES, CLEAR IT 
O84A- C9 8D 1630 CMP #$8D 
O84C=- FO OC 1640 BEQ . 

O84E- AD 00 CO 1650 .4 LDA KEYBOARD 
0851- 10 FB 1660 BPL . 

085 3- 8D 10 CO 1970 STA STROBE 
0856- C9 8D 1680 CMP #$8D 
0858- DO OD 1690 BNE . 

O85A- 60 1700 3° RTS 

1720 . DOES NOT REFERENCE PAGE-ZERO 
O85B- A2 00 iho 6 LDX #0 
O85D- 20 8C F8 1750 JSR MON.INSDS GET LENGTH OF INSTRUCTION 
O860- 20 53 F9 1760 JSR MON. PCADJ 
0863- 85 3A 1770 STA MON. PCL 
0865—- 84 3B 1780 . STY MON.PCH 

1860 # TEST IF FINISHED 

1810 #---~-------~--~---~----- = 
O867- A5 3 1820 .7 LDA MON.PCL 
0869- C5 3E 1830 CMP MON.A2L 
OB6B— A5 : 1840 LDA MON.PCH 
O86D- E5 3F 1850 SBC MON.A2H 
O86F- 20 A2 1860 BCC .1 
0871- 60 1870 RTS 
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SUFER PHONE 
For Arrlesoft snd DT. CC. HAYES MICROMODEM II users only 
SUFFER FHONE IS IN CTs NJ» NY» GAv MNy TXye WI. 
UFLOAIS,s, DOWNLOADS: CAFTURES, 
KEEPS DIRECTORY 
TIALS AUTOMATICALLY 
FOR WEEKEND DELIVERY SEND $25 
FORK EVENING DELIVERY SEND $27 
FOR DAYTIME DELIVERY SEND $30 
SEND NAME» ADIIRESSs, PHONE NUMBER AND TIME TO CALL. 
JAMES QO. CHURCH 
20 PLACIDO ST. 
TRUMBULL» CT. 


06611 


DELIVERY BY PHONE ONLY. 


MADE MONEY BACK OFFER WITH FIRST DELIVERIES NO TAKERS YET 


Page 22....Apple Assembly Line....June, 1982....Copyright (C) S-C SOFTWARE 


Automatic CATALOG for S-C Macro Assembler.........eBill Morgan 


Being a thoroughly lazy (and fumblefingered) typist, I have 
been itching for an automatic CATALOG command to go with the 
automatic LOAD in the S-C Macro Assembler. Well I finally have 
it; now loading a file is just esc-C, esc-I...IL. I chose 
esc-C for CATALOG because I never use the eSC-ABCD cursor 
moves. If you do like those, esc-G and -H are available; right 
now they are like NOP's. 


The Macro Assembler takes the character following an escape (@, 
A, B,.-., L, M) and makes it an index into a jump table located 
from $1467-1482. Esc-C is at $146D in the table, esc-G is 
$1475, and esc-H is $1477. 


The patch is only $28 bytes long, short enough to easily fit in 
page 3, but I decided to go ahead and create a spare page for 
patches by moving the symbol table up one page. This technique 
is mentioned on page 5-3 of the Macro Assembler manual. 


To install the patch, first move the symbol table base up by 
changing location $101D from $32 to $33. Now insert the 
address of the patch into the jump table by changing locations 
S146D-6E from $65 FC to SFF 31 (or your location-1). Type 
"BLOAD PATCH", then "BSAVE ASM MACRO.MOD,A$1000,LS22FF", and 
there you have it. 


OFTEN WONDER HOW MACHINE LANGUAGE PROGRAMS WORK? 
Well stop wondering and do something about it! Use DISASM to convert 6502 machine code into aeaningful, 
syabolic source. Create a text file which is directly compatable with DOS ToolKit, LISA and S-C (both 4.0 
& Nacro) Asseablers. DISASM handles data tables, displaced object code and even lets you substitute 
MEANINGFUL labels of your own choice (100 commonly used Monitor & Pg Zero names included in Source fora to 
get you rolling). An addrase-based cross reference table provides even more insight into the inner 
workings of aachine language prograas. DISASM is an invaluable aid for both the novice and expert alike. 
DISASM (Version 2.2)131 630.00 


The *MIRROR’ 3: Firmware for Apple-Cat 
Comaunications ROM plugs directly into Novation’s aodea card. Three basic sodes: Duab Terainal, Reaote 


Console & Prograsmable Modes. Added features includes Printer buffer, Pulse or Tone dialing, true 
dialtone detection, audible ring detect and ring-back option. Supports VIDEX 80-coluan board and Apple’s 
Come card cossands. (Hardware differences prevent 1002 interchangability with Come card.) 

ROM & User’s Manuals $29.00 


Utilities For Your S-C Assembler (4.0) 
§C.GSR: A Global Search and Replace Eliainates Tedious Manual Renaming Of Labels.....sscecoes @2O2.00 
SC.XREFs A Linenuaber-Based Global Cross Reference Table For Coaplete Source Docusentation... 620.00 
SC.TAB: Tabulates Source Files Into Neat, Readable Fora. Encourages Fast, Free-Foraat Entry, $615.00 
SC UTILITY PAKs Includes All Three Utilities Described Above (You Save $10.00)... .sccseccceses B409200 


Avoid A $3.00 Shipping/Handling Charge By Mailing Full Payaent With Order 


RAK - WARE 
41 Ralph Road 
West Orange NJ 070352 ( 


setts SAY YOU SAW IT IN ‘APPLE ASSEMBLY LINE’! sees 
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1000 Beamnnnnnnnnnnnnemneeuenenncnccen 
1010 .OR $3200 
1020 “TF PATCH 
0024- 1080 CH oss .20téi‘aiOSOSOCS™S 
0028- 1050 BASL EQ $28 
0040~ 1060 XSAVE :EQ $40 
0200- 1070 WBUF +EQ $200 
1090 ESCAPE.C 
200- £0 00 ~=—«: 1100 CPX #0 BEGINNING OF LINE? 
aD: aie 
206- B9 20 32 1130 + LDA MSG-1,¥ GET CHARACTER 
209- 91 28 1140 STA (BASL),Y PUT ON SCREEN 
20B- 9 00 02 1150 STA WBUF,X’ PUT IN BUFFER 
aE EB 1170 INE 
Zio coos 1180 = GRY #8 Dow 
$ifz Bh oh 1209 STY CH 
216- 86 40 1210 STX XSAVE TELL THE ASSEMBLER 
218- BA 1220 TS THAT THIS WAS AN 
219- A9 CC 1230 LDA #$CC ESCAPE-L, SO IT WILL 
21B- 9D 03 01 1240 STA s{o3.x GO AHEAD AND EXECUTE 
21E- A6 4 1250 LD THE 
3220- 60 1260 .2 RTS 
Hc 7B 
3227= CT 1280 MSG ~—s .AS.- -/CATALOG/ 


DO YOU OWN ONE OF THOSE SMART PRINTERS? 
(But Are Using It With A ‘Duab’ Interface Board?) 
Now you can get the ost out of your EPSON, NEC, C.ITOW and OKI printers with the PERFORMER board for the 
Apple II and Apple I! Plus. This board plugs into any Apple slot and turns your ‘duab’ printer interface 
into a ‘seart’ one. Here’s an example set-up aenu for the NEC 8023A: 


PICA ON $ Easy to use! Menu-driven with sieple cosaands 
ELITE OFF t Replaces tedious aanual printer set-up 

CONDENSED OFF $ No need to reaeaber those ’ESC’ comsand sequences 
ENLARGED OFF % The PERFORMER is in ROM so its always ‘on-line’ 
ENHANCED OFF $ Easy selection of available printer fonts 

LINES/ INCH Six $ Also controls print foreat with dynamic defaults 
PAGE NO. ! $ Defaults are easily overridden for aaxiaua versatility 
COLUANS 80 & Optional Header line prints Title, Date & Pg 

INDENT 0 $ Provides Pgi/Pg 2 TEXT or GRAPHICS screen duaps 
FORM LENGTH = 64 % Large foraat graphics in Positive or Negative isages 
LINES/PAGE 63 $ Compatible with Apple, Tyaac, Epson, Microtek and 
FORM FEED ON t sinilar ‘duab’ Centronics type parallel I/F boards 
DISPLAY OFF $ SPECIFY printers EPSON MX80 W/Graftrax-80 

GRAPHICS POS $ EPSON NX100, EPSON MX80/NX100 W/Graftrax Plus 

DUP PG! ¢ NEC 8023A, C. Itoh 8510 (ProWriter) 


$ OKI Nicroline 82A/83A W/OKIGRAPH 


PERFORMER BOARD: $49.00 
Avoid A $3.00 Shipping/Handling Charge By Mailing Full Payeent With Order 


RAK -WARE 


41 Ralph Road 
West Orange NJ 07052 
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EXQMINEL co cccccercccrzcccscccccccccc ccc ccccccccveeebill Morgan 


Here is the program I like to use to examine memory; it 
displays an entire page on the screen in both hex and ASCII 
formats. This makes the screen kind of crowded, but I 
particularly wanted a full page at a time. A program like this 
is useful for inspecting the results of last month's TRACK READ 
program, studying the internal format of an Applesoft program, 
or just exploring inside your Apple. 


Examiner uses the left and right arrow keys to decrement or 
increment the page being displayed. You can also type “°P" to 
allow entry of a page number in hex. Notice that the number 
entered is rolled into the page number from the right. Escape 
exits the program. 


Lines 1180-1260 set things up to start with page zero. 


Lines 1280-1390 display the index, then twelve bytes in hex 
format. 


Lines 1410-1460 reset the indices to display the same twelve 
bytes in ASCII. 


Lines 1480-1630 do the ASCII display, changing any inverse or 
flashing values to normal and substituting periods for control 
characters. 


Lines 1700-1870 process the commands to change the page being 
displayed. 


Lines 1890-2160 accept characters "0" through "F" and convert 
them into hex values, rolling the values into the page number 
to be displayed. 


Lines 2180-2260 display the header "“page=". 


This is threatening to turn into a monthly column; what do you 
readers think of that idea? Are these routines too trivial? 
Too complicated? Do you have any questions about them? About 
anything fairly basic? Drop me a line here at AAL and let me 
know what you think. I'll look forward to hearing from you. 


1000 #--~~----~~~---.~-~~.------------- 
1010 OR $300 
1020 .TF EXAMINER 
1030 #----~~---~~--------------------- 
0000- 1040 POINT .EQ $00,01 
0001- 1050 PAGE .EQ $01 
0024~ 1060 CH ~EQ $24 
1070 * 
co00- 1080 KEYBOARD .EQ $C000 
C010- 1090 STROBE = EQ $C010 
FO4A-~ 1110 PRBL2 .EQ $F94A 
FC58- 1120 HOME .EQ $FC58 
FDOC-~ 1130 RDKEY .EQ $FDOC 
FD8E- 1180 CROUT ‘FQ $FD8E 
FDDA- 1150 PRBYTE .1') $FDDA 
FDED~ 1160 COUT .uy $FDED 
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STA POINT START WITH 
A PAGE PAGE ZERO 


0 
1220 a AY MEW tonne 


0306- 20 58 FC 1230 R HOME 
0309- 20 B3 03 1240 JSR PRINT. HEADER 
030C- 20 8 FD 1250 JSR CROUT 
O30F- AO 00 1260 . LDY #$00 
1280 NEW.LINE 
0311- 42 oc 1290 Lx #$0C TWELVE BYTES AT A TIME 
O337- 9 AO 4320 TBe PROT PRINT INDEX 
0319- 20 ED FD 13 0 JSR COUT SPACE 
031C- B1 00 .~=—«1340 «1 LDA (POINT) ,Y 
O318- 20 DA FD 1330 JSR PRBYTE ' PRINT HEX 
0322- FO 2D 13 : BEQ FILLIN PAGE DONE? 
0325- DO FS — 1390 BNE .1 TWELVE YET? 
0327- 98 1410 ADJUST TYA 
0328- £9 0C ~—i1420 SBC #$0C RESET Y 
O35B- AQ AO 11R0 LDA #$A0 
032D- 20 ED FD 1450 JSR COUT SPACE 
0330- A2 OC 14 0 . LDX #$0C TWELVE AGAIN 
0332- B1 00 1480 ASCII LDA (POINT) ,Y 
0334- C9 40. 03—S 1890 CMP #$40 INVERSE? 
0336- BO 02 ~=—«'1500 BCS . NO 
0338- 09 CO 1510 ORA 3 0 NORMALIZE 
O33A- CO 80 =: 1520 .1 CMP #$80 FLASHING? 
033C- BO 92 1530 BCS .2 NO 
0 3° 09 1540 ORA #$80 NORMALIZE 
gio: G3 AS 1398-2 gar FANG Cort 
O344— A 1570 LDA #3AE PUT PERIOD 
0 i6~ 20 ED FD 1380 3 JSR COUT SEND IT 
0 te FO OE 1860 BEQ GET.COMMAND PAGE DONE? 
O34D- DO E3 ~—- 1620 BNE ASCII LINE DONE? 
O34F- FO CO 1630 . BEQ NEW.LINE 
0351- A2 10 1650 FILLIN LDX #$10 FILL LAST PARTIAL 
0353- 20 4A FQ 1660 JSR PRBL2 LINE WITH SPACES 
0358- AO 08 1670 LDY #$08 ADJUST Y 
0358- DO CD 16 0 BNE ADJUST 
1700 GET. COMMAND 
gi 28 ERS sae Sn 
oaee- FO OF 17d) Bag #$9P | BSCAPED 
0364- C9 95 ~—«- 1750 CMP #$95 RIGHT ARROW? 
0 Ta £0 OB 1420 BEQ . 
0 68- co 88 1770 CHP é 88 LEFT ARROW? 
3 oa C DO 1790 Cur #$D0 npn 
O36E- FO OD ~—- 1800 BEQ GET. PAGE. NUMBER 
0370- DO EB 1810 BNE .1 NONE OF THE ABOVE 
0372- 60 1820 .2 RTS 
1830 @ 
0373- E6 01 1886 3 INC PAGE 
gts. 88 64 °° Hees", dae Blzpter.mmv.eac 
O37A- 4C 06 03 1870 . JMP DISPLAY.NEW. PAGE 
1890 GET. PAGE.NUMBER 
037D- 20 B3 03 1900 JSR PRINT.HEADER 
0 B0- C6 2 1910 «1 DEC CH SO PRBYTE WILL ALWAYS 
0382- C6 25 «=: 1920 DEC CH DISPLAY IN SAME PLACE 


Page 26....Apple Assembly Line....June, 1982....Copyright (C) S-C SOFTWARE 


0384- AD 00 CO 1930 .2 LDA KEYBOARD 
0387- 10 FB: 1940 BPL .2 
0369- 8D 10 CO 1999 STA STROBE 
038C- C9 8D  ~—-: 1960 CMP #$8D RETURN? 
028E= i9 20 1980 BEQ . YES, EXIT 
0390- 49 BO =: 1980 EOR #$B0 
0392- C9 0A ~— 1990 P #$A 0-92 
0394- 90 06 2000 BCC . Y 
0396- 69 88 2010 ADC #388 
0398- CO FA = 2020 CMP #$FA A-F? 
039A- 90 E8 2030 , BCC .2 NO 
039C- AO 03. = 2050 .3 LDY #$3 LOOP 4 TIMES 
039E- OA 2060 ASL THROW AWAY HIGH NYBBLE 
039F- OA 2070 ASL 
O3A0- OA 2080 ASL 
O3A1- OA 2090 ASL 
03A2~ OA 2100 .4 ASL SHIFT INTO 
O34 - 26 01 2110 ROL PAGE PAGE NUMBER 
O3A5- 8 2120 DEY 
O3A6- 10 FA =. 2130 BPL .4 
O3A8- A5 01 2140 LDA PAGE 
O3AA- 20 DA FD 2150 JSR PRBYTE DISPLAY PAGE NUMBER 
O3AD- 4C 80 03 2160 UMP .1 GET NEXT KEYPRESS 
03B0- 4C 06 03 2170 55 JMP DISPLAY. NEW. PAGE 
2190 PRINT HEADER 
03B3- AO 00 ~—- 22 #$00 
03B5- B9 C5 03 2210 .1 LDA QPAGE,Y 
03B8- 20 ED FD 2220 JSR COUT 
03BB- C8 2230 INY 
O3BC- CO 05 = 220 CPY #$05 
O3BE- DO F5 = 2250 BNE 
O3C0- A5 01 2260 LDA PAG 
03C2- 4C DA FD 2270 , JMP PRBYTE 


03C5- DO C1 C7 
03CS—- C5 BD 2290 QPAGE .AS -/PAGE=/ 


APPLE MUSIC SYNTHESIZER BREAKTHROUGH 


e COMPLETE 16 VOICE MUSIC SYNTHESIZER ON ONE CARD, JUST PLUG IT INTO YOUR APPLE, CONNECT THE 
AND La cen ISUPPLIEO) TO YOUR STEREO AND BOOT THE SUPPLIED DISK AND YOU'RE READY TO ENTER 


¢ITS EASY TO PROGRAM MUSIC WITH OUR “COMPOSE” SOFTWARE. YOU'LL START RIGHT AWAY AT 
INPUTTING YOUR FAVORITE SONGS. OUR MANUAL SHOWS YOU HOW, STEP BY STEP. THE HI-RES SCREEN 
SHOWS WHAT YOU'VE ENTERED IN STANDARD SHEET MUSIC FORMAT. 


e WE GIVE YOU LOTS OF SOFTWARE. IN ADDITION TO “COMPOSE” AND PLAY PROGRAMS, THE OISK IS FULL 
OF SONGS READY TO RUN. 


* FOUR WHITE NOISE GENERATORS (GREAT FOR SOUND EFFECTS). 
¢ PLAYS MUSIC IN TRUE STEREO AS WELL AS TRUE DISCREET QUADRAPHONIC. 
¢ ENVELOPE CONTROL (VOLUME) 


e WILL PLAY SONGS WRITTEN FOR ALF SYNTHESIZER (ALF SOFTWARE WILL NOT TAKE ADVANTAGE OF ALL 
THE FEATURES OF THIS BOARD, THEIR SOFTWARE SOUNDS THE SAME ON OUR SYNTHESIZER). 


e AUTOMATIC SHUTOFF ON POWER-UP, OR IF RESET IS PUSHED. 
¢ MANY, MANY MORE FEATURES. 


ALL ORDERS SHIPPED SAME DAY MASTER CHARGE & VISA WELCOME 


SEND $159.00 CHECK OR MONEY ORDER 
(TEXAS RESIDENTS ADD 5% SALES TAX) 


APPLIZD ENGINEERING = (214) 492-2027 
P.O. BOX 470301 7:00 AM - 11:00 PM 7 DAYS A WEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE QUA ONLY BUSINESS 
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Roe 
, COMPUTER SYSTEM ORGANICER 


Arrange all your equipment together! 

Lock the APPLE II in the ORGANIZER. 

Power strip mounts on rear = 1 switch. 
Vented for air flow - room for fan. 

Printer Organizer fits on top or along side. 
Any monitor or portable TV fits on top. 
Simulated Walnut with viny! coating. 


COMPUTER SYSTEM ORGANIZER $75.00 
PRINTER ORGANIZER 30.00 
6 PLUG POWER SWITCH w/BRKER 25.00 
APPLE II LOCK KIT 25.00 


PEDESTAL STAND w/CABINET (avail soon) 


Computer Furniture 


a div of 


Software Syvetems Support Ine. 


2901 Fiagetone Or 
Gertand, TX 76042 


214 406-1958 
recording enewer service 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P. O. 
Box 280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is 
$15 per year in the USA, sent Bulk Mail; $18 per year sent First Class Mail in 
USA, Canada, and Mexico; $28 per year sent Air Mail to other countries. Back 
issues are available for $1.50 each (other countries add $1 per back issue for 
postage). All material herein is copyrighted by S-C SOFTWARE, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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